BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/A-An/4TrackStack2.cpt/4-Track Stack/background_2682.txt

Text File | 1989-05-02 | 5KB | 242 lines

-- background: 2682 from stack: in
-- bmap block id: 4048
-- flags: 4000
-- background id: 0
-- name: Help


-- part 4 (field)
-- low flags: 80
-- high flags: 4004
-- rect: left=231 top=116 right=158 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 5
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Song Title


-- part 5 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=332 top=110 right=124 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 9
-- text size: 12
-- style flags: 0
-- line height: 12
-- part name: Index number


-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=9 top=27 right=55 bottom=38
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 6 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=312 top=199 right=217 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Tape Title


-- part 7 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=313 top=268 right=286 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date


-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=71 top=36 right=79 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 6448 / 6448
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install in Home
----- HyperTalk script -----
on mouseUp
  answer "Install Link in your Home Stack?" with "Cancel" or "OK"
  if it is "OK" then
    choose button tool
    select background button "Install in Home"
    doMenu "Copy button"
    go Home
    doMenu "Paste button"
    set the script of card button "install in home" to "on mouseup"&return&"go ""e&"4-Track Stack""e&return& "end mouseup"
    set the name of card button "install in home" to "4-Track Stack"
    set the showname of card button "4-Track Stack" to true
    choose browse tool
  end if
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=312 top=246 right=264 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Performer


-- part 1 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=223 top=58 right=335 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help


-- part 9 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=162 top=110 right=207 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Version


-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=186 top=23 right=59 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=65 right=336 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help Button
----- HyperTalk script -----
on mousedown
  if the hilite of me is false then
    set the hilite of me to true
    show background field "help2"
    exit mousedown
  end if
  if the hilite of me is true then
    hide background field "help2"
    set the hilite of me to false
  end if
end mousedown





-- part 10 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=130 top=57 right=249 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Help2
----- HyperTalk script -----
on mouseUp
  hide background field "help2"
  set the hilite of bkgnd button ID 11 to false
end MouseUp


-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=37 top=27 right=55 bottom=68
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card
end mouseUp